home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / boyan5a.arc / TCOMM.BSC < prev    next >
Text File  |  1991-05-28  |  2KB  |  35 lines
  1. \\ This script automates logons to TCOMM type Bulletin Board Systems.
  2.  
  3. \\ 1. BOYAN Macro #72 should be set to:  Firstname Lastname{
  4. \\    To edit that macro, enter BOYAN and type  <Alt-K> <F2>.
  5.  
  6. \\ 2. In the dialing directory entry for each TComm system,
  7. \\    the Script field should be set to "TCOMM", and
  8. \\    the PW field should be set to your password.
  9.  
  10. \\ The following blocks are included within this script:
  11. \\  LOGON      runs TComm logon
  12. \\  QUESTIONS  answers all of TComm's logon questions--no matter
  13. \\             what order the sysop has configured them in.
  14.  
  15. |LOGON
  16. \DM[CONNECTED TO TCOMM SYSTEM!]
  17. {                        \\ Send one carriage return
  18. \BL[QUESTIONS]           \\ This calls the "QUESTIONS" block as a subroutine.
  19. \DM[LOGON COMPLETE.]     \\ When done, display message on screen.
  20.  
  21. |QUESTIONS        \\ This block answers TComm's log-on questions.
  22. \WP[1]                                  \\ Waits for the next TComm prompt
  23. \IF+press enter to continue[{]          \\ These \IF commands test to see
  24. \IF+number one[N{]                      \\ which prompt it is, and respond
  25. \IF+red background[Y{]                  \\ appropriately.  The response is
  26. \IF+color graphics[Y{]                  \\ in square brackets.
  27. \IF+dash on the right[Y{]               \\ The name prompt responds by
  28. \IF+first & last name[\MA[72]]          \\ executing the <F2> keystroke macro.
  29. \IF+password[%PW{]                      \\ The password prompt responds by
  30. \IF+strike a key when ready[" ]         \\ sending %PW, your current password
  31. \IF+any key[" ]                         \\ plus the <Enter> key.
  32. \IF+Quit)[Q{]                           \\
  33. \IF+Main[\EB]                           \\ END BLOCK if reached "Main" Menu
  34. \GB[QUESTIONS]                          \\ Circle around for next prompt...
  35.